home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / year sec (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  36 lines
  1. 10 poke56,160:poke55,0:clr:dv=peek(186):ifdv<8thendv=8
  2. 20 print"[147][146][158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
  3. 30 [153]"def lenonvert (NULL)ears (NULL)o (NULL)econds "
  4. 40 [153]"waitusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  5. 50 print"[159][197]nter number of years: [153]";:li=10:gosub180:ifval(w$)=0then20
  6. 60 print"[158]":y=val(w$):printval(w$)"[217]ears ="y*12"months"
  7. 70 printval(w$)"[217]ears ="y*(365.25/7)"weeks"
  8. 80 printval(w$)"[217]ears ="y*365.25"days"
  9. 90 printval(w$)"[217]ears ="y*365.25*24"hours
  10. 100 [153][197](w$)"(NULL)ears ="y[172]365.25[172]24[172]60"minutes
  11. 110 printval(w$)"[217]ears ="y*365.25*24*60*60"seconds
  12. 120 [153]"openatngain? ((NULL)open/(NULL)open)"
  13. 130 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]130
  14. 140 [139]a$[178]"y"[167][138]
  15. 150 [137]50000
  16. 160 [144]
  17. 180 w$[178]"":t[178]0:lw[178]0:[139]li[178]0[167]li[178]35
  18. 190 [161]a$:as[178][198](a$[170][199](0)):[139]ti[177]15[167][141]270
  19. 200 [139](a$[179]" "[176]a$[177]"z")[175](a$[179]"atn"[176]a$[177]"(NULL)")[175]as[179][177]13[175]as[179][177]20[167]190
  20. 210 lw[178][195](w$):[139]as[178]13[167]t[178][171]1:[141]270:[142]
  21. 220 [139]lw[178]li[167][139]as[179][177]20[175]as[179][177]13[167]190
  22. 230 [139]as[178]20[167][139]lw[178]0[167]190
  23. 240 [139]as[178]20[167]w$[178][200](w$,[195](w$)[171]1):t[178]0:[141]270:[141]270:[153]"waitcmd cmd";:[137]190
  24. 250 w$[178]w$[170]a$:lw[178][195](w$):[151]212,0:[153]"wait"a$;:[141]270
  25. 260 [137]190
  26. 270 t[178][168]t:[151]199,[171]t:[153]" cmd";:ti$[178]"000000":[142]
  27. 10000 [160]15:[159]15,8,15,"s:year sec":[160]15:[148]"year sec",8:[144]
  28. 50000 [139][194](787)[179][177]119[167]60000
  29. 50010 [151]49152,0:[151]44,192:[151]43,1:[151]45,[194](53246):[151]46,[194](43249):[138]
  30. 60000 a$[178]"high basic":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]60020
  31. 60010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
  32. 60020 [130]:[153]"load":[151]186,8:[128]
  33. 60030 q$[178][199](34):[151]646,[194](53281):[153]"load"
  34. 60040 [153]"loadp(NULL)49152,0:p(NULL)44,192:p(NULL)43,1:p(NULL)56,207:p(NULL)55,252:clr:l(NULL)"q$a$q$","i
  35. 60050 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  36.